home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.mactech.com 2010
/
ftp.mactech.com.tar
/
ftp.mactech.com
/
thinkref
/
archive
/
THINKPascalUH2.1.sea
/
THINKPas Univ Hdr 2.1
/
Interfaces
/
Start.p
< prev
next >
Wrap
Text File
|
1995-09-12
|
2KB
|
103 lines
{ Converted with MPW2TPas Tuesday, September 12, 1995 10:31:53 PM }
{
File: Start.p
Contains: Start Manager Interfaces.
Version: Technology: System 7.5
Package: Universal Interfaces 2.1 in “MPW Latest” on ETO #18
Copyright: © 1984-1995 by Apple Computer, Inc.
All rights reserved.
Bugs?: If you find a problem with this file, use the Apple Bug Reporter
stack. Include the file and version information (from above)
in the problem description and send to:
Internet: apple.bugs@applelink.apple.com
AppleLink: APPLE.BUGS
}
UNIT Start;
INTERFACE
{$IFC UNDEFINED __START__}
{$SETC __START__ := 1}
USES
ConditionalMacros, Types;
{ $PUSH}
{ $ALIGN MAC68K}
{ $LibExport+}
TYPE
DefStartRec = RECORD
CASE INTEGER OF
0: (
sdExtDevID: SignedByte;
sdPartition: SignedByte;
sdSlotNum: SignedByte;
sdSRsrcID: SignedByte;
);
1: (
sdReserved1: SignedByte;
sdReserved2: SignedByte;
sdRefNum: INTEGER;
);
END;
DefStartPtr = ^DefStartRec;
DefVideoRec = RECORD
sdSlot: SignedByte;
sdsResource: SignedByte;
END;
DefVideoPtr = ^DefVideoRec;
DefOSRec = RECORD
sdReserved: SignedByte;
sdOSType: SignedByte;
END;
DefOSPtr = ^DefOSRec;
PROCEDURE GetDefaultStartup(paramBlock: DefStartPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A07D;
{$ENDC}
PROCEDURE SetDefaultStartup(paramBlock: DefStartPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A07E;
{$ENDC}
PROCEDURE GetVideoDefault(paramBlock: DefVideoPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A080;
{$ENDC}
PROCEDURE SetVideoDefault(paramBlock: DefVideoPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A081;
{$ENDC}
PROCEDURE GetOSDefault(paramBlock: DefOSPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A084;
{$ENDC}
PROCEDURE SetOSDefault(paramBlock: DefOSPtr);
{$IFC NOT GENERATINGCFM}
INLINE $205F, $A083;
{$ENDC}
PROCEDURE SetTimeout(count: INTEGER);
PROCEDURE GetTimeout(VAR count: INTEGER);
{ $ALIGN RESET}
{ $POP}
{$ENDC} {__START__}
IMPLEMENTATION
END.